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AUTHOR BRIAN PORTER CREATION DATE 26-MAR-1979 
Functional description: 
This moguls displays error log entries to all drive types connected 
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to the T formatter. 

Modified by: 

v03-004 SARO225 Sharon A Sone ee 28-Mar-1984 
Changed the call to UCBSL UIC to ORBSL_OWNER. 

v03-003 SAR0079 Sharon A. Reynolds, 20-Jun-1983 
Changed the corr tage control in the ‘format’ statements 
for use with ERF. 

v03-002 SAR0043 Sharon A. Reynolds, 9-Jun-1983 
Removed brief/cryptic support. 

v03-001 er0oot Brian Porter, 20-AUG-1982 

Minor edit. 


eo 
ca 


INCLUDE *SRC$:MSGHDR.FOR /NOLIST 
INCLUDE *SRC$:DEVERR.FOR /NOLIS 
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TTLE DOWN®*/ 
ASE ENCODED STATUS*'/ 


IVE PRESENT®*/ 
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-Sep-1 


( ) 
MAS / OF TAPE®' 
nt {melon anes 
DATA MASS2_ / 1 HT ONIN IN PROGRESS®'/ 
DATA MASS¢_ : /*COMPOSITE ERROR®' 
DATA MASS2_ /"ATTENTION ACTives*/ 
CHARACTERS 30 MASS1_ER(0:5) 
ATA MASS1_ER(O) / ILLEGAL FUNCTION®'/ 
DATA MASS1_ER(1) /"ILLEGAL REGISTER*®'/ 
DATA BASS! ERE ) /*REGISTER MODIFICATION REFUSED®'/ 
DATA MASS1—ER(3) /"MASSBUS CONTROL PARITY ERROR®*'/ 
DATA MASS1_ER(4) /"FORMAT CODE ERROR®'/ 
DATA MASS1_ER(5) /"MASSBUS DATA PARITY ERROR*'/ 
CHARACTER®25 PE1_ER(6:7) 
DAT PE ~ER(G) /*UNCORRECTABLE DATA ERROR*'/ 
BATA PE1"-ER(7) /"*FORMA e'/ 
CHARACTERS 26 atZi1€R(6:7) 
DAT 711_ER R(g) /"VERTICAL PARITY ERROR*'/ 
BATA NRoI 1=ER(7) /*LONGITUDINAL PARITY ERROR*'/ 
CHARACTERS 18 MASS2_ER(8:9) 
DAT WER(B) /"NON=STANDARD GAP*'/ 
BATA RASS “ER(9) /"FRAME COUNT ERROR®*'/ 
CHARACTER®17 PE2_ER(10:10) 
DATA PE2_ER(10) /*CORRECTABLE SKEW*'/ 
CHARACTER®18 WR212_ER(10:10) 
DATA NRZ12_ER(10) /"ILLEGAL TAPE MARK*'/ 
CHARACTER#24 MASS3_ER(11:14) 
Bara RASSECERCID) Deve TOnINe’ Earn 27" 
0 DATA MASS “ERS /"OPERATION INCORPLETE®*/ 
1 DATA MASS3_ER(14) /"TRANSPORT UNSAFE®' 
§ Ty ae eer PE3_ER(15:15) 
2 DAT ER(15) /"CORRECTABLE DATA ERROR*'/ 
§ CHARACTER®*10 WRZ13_ER(15 215) 
DATA NRZ13_ER(15) /*CRC ERROR*'/ 
CHARACTER*27 MASS1_DT(0:3) 
0 DATA mass] DT (0) /*45 IPS TRANSPORT SELECTED®'/ 
1 DATA MASS1_DT(1) /*75_IPS TRANSPORT SELECTED*'/ 
§ DATA ASS1_01(¢) /°125 {Ps TRANSPORT SELECTED®'/ 
? DATA MASS1_DT(3) /"BIT 3 ALWAYS SET#'/ 
5 CHARACTER®15 MASS_DT5(0:1) 
$ DATA MASS_DT5(0) ~ /*TMO2 FORMATTER®'/ 
DATA MASS_DT5(1) /*T FORMATTER*®'/ 
g CHARACTER®18 MASS2_D7(10:10) 
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DISKSVMSMASTER 

DATA —MASS_FUNC(24) / "WRITE FORWARD®®/ 

DATA —RASS-FUNC(¢5) ILL FUNCTION®*/ 

DATA  MASSTFUNC(06)  / "ILLEGAL FUNCTION®'/ 

DATA —RASS-FUNC (G7) / “ILL FUNCTION®*/ 

DATA MASS-FUNC(0B) = / "READ F De'/ 

DATA —MASS-FUNC(69) /" ILLEGAL FUNCTIONe  / 

DATA = MASSTFUNC(30))— / ILL FUNCTION®* / 

DATA MASSTFUNC(31) /*READ REVERSE®’/ 


CALL FRCTOF (LUN) 
call dhead! (lun, *MASSBUS') 
DRIVE _FUNC=LIBSEXTZV(1,5,DRIVE_CS1) 


if ¢ 

} emb$w_dv_bcnt .ne. 0 

; drive_func -ge. xfer_cmd 
1 em w hd_entry ene. 98 
1) then 


all mba_control_registers (lun,5,adapter_registers, 
selected_mapping_register) 


all mba_mapping_register (lun,selected_mapping_register, 
; adapter registerst6)) — 
if (selected_mapping_register .gt. 0) then 


all mba_mapping_re ister (lun, (selected_mapping_register - 1), 
aatpoter resis ers(7)) 


€ 

endif 

diagnostic_mode = .false. 

if (LibSextzv(0,1,drive_mr) .eq. 1) diagnostic_mode = .true. 


*CS1* REGISTER 


CALL LINCHK (LUN,2) 


WRITE(LUN,75) DRIVE _CS1 
FORMAT(/* Pg NIMES! *.126,78.8) 


if (.not. diagnostic_mode) then 

call mba_status_register16_31 (lun,drive_cs1,drive_cs1,0) 
CALL OUTPUT (LUN,DRIVE_CS1,MASS1_CS1,0,0,0,°0") 

CALL LINCHK (LUN,1) 
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45 FIELD=LIBSEXTZV(1,5,DRIVE_CS1) 
WRITE (LUN, 100) MASS FUNC (FIELD) 
FORMAT 


‘ 100 - 140, A<COMPRESSC (MASS_FUNC(FIELD))>) 
' CALL OUTPUT (LUN, DORIVE_CS1,MASS2_CS1,11,11,11,°0") 
' endif 
‘ C 
‘ C *DS* REGISTER 
0455 C 
: CALL LINCHK (LUN,1) 
D455 WRITE(LUN,125) DRIVE_D 
0460 ©=—-:125 FORMATC? S48, ° TNS 715%,28.8) 
: if (.mot. diagnostic_mode) then 
0 ¢ call mba_status_register16_31 (lun,drive_cs1,drive_ds,1) 
0466 CALL OUTPUT (LUN,DRIVE_DS,MASS1_DS,0,0,8,'0") 
D4¢ CALL OUTPUT (LUN,DRIVE_DS,MASS2_DS,10,10,15,'0") 
046 endif 
D0 

7% 

i C *ER’ REGISTER 

74 

Le CALL LINCHK (LUN,1) 

7 WRITE (LUN, 14 ) DRIVE_ER 

FORMAT ( 18," TMER’,124,78.8) 


8 140 


BC if (.not. diagnostic_mode) then 
call mba_status_register16_31 (lun,drive_ds,drive_er,1) 
CALL OUTPUT (LUN,DRIVE_ER,MASS1_ER,0,0,5,°0") 


F IELD=LIBSEXTZV(10,1,DRIVE_TC) 

IF (FIELD .€0. 1600_8P1) THEN 
20 CALL OUTPUT (LUN,DRIVE_ER,PE1_ER,6,6.7,"0") 
3 ELSE 
9 CALL OUTPUT (LUN,DRIVE_ER,NRZI1_ER,6,6,7,'0") 
94 ENDIF 


CALL OUTPUT (LUN,DRIVE_ER,MASS2_ER,8,8,9,'0") 
If (FIELD .€@. 1600_B8P1) THEN 
CALL OUTPUT (LUN,DRIVE_ER,PE2_ER,10,10,10,°0") 


: 
OC 
‘ 
oe 
e 
ee 
; 
OC 
: 
‘ 
: 
‘ 
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ELSE 
cat OUTPUT (LUN, DRIVE _ER,NRZ12_ER,10,10,10,'0") 
ENDIF 


CALL OUTPUT (LUN,DRIVE_ER,MASS3_ER,11,11,14,°0") 
IF (FIELD .€0. 1600_8P1) THEN 
CALL OUTPUT (LUN,DRIVE_ER.PES_ER,15,15,15, 0") 


1 
1 
ig CALL OUTPUT (LUN,DRIVE_ER.NRZI3_ER,15,15,15,°0") 
14 ENDIF 
15 
3 ¢ 
1 C "MR® REGISTER 
1 ¢ 
CALL LINCHK (LUN,1) 
yeirey 150) DRIVE_MR 
150 ee »"TMMR'-126,78.8) 


if (.not. diagnostic_mode) then 


NOW wr 


| 
6. mba_status_register!16_31 (lun,drive_er,drive_mr,1) 
else 

CALL LINCHK (LUN,1) 


WRITE (LUN, 160) 
160 Ae -140, DIAGNOSTIC MODE") 


MF wn 


*AS* REGISTER 


Aono 


CALL LINCHK (LUN,1) 


WRITE(LUN,175) DRIVE_A 
175 FORMATE SN TB. ORAS 456, 78.8) 


if (.not. diagnostic_mode) then 

call mba_status_register16_31 (lun,drive_mr,drive_as,1) 
DO 184 1=0,7 

if (LibSextzv(i,1,drive_as) .eq. 1) then 

CALL LINCHK (LUN,1) 


WRITE(LUN,183) J 
FORMAT(* *,140,*ATTENTION UNIT ',11,".") 


BOISE SEES EEE SS 


Pn 
w 


w 


183 


185 


oon 


215 


225 


endif 
CONT me 
endi 


"FC’ REGISTER 


CALL LINCHK (LUN,1) 


WRITE 185) DRIVE_F 
ORMATOS fT PREC 2156, 78.8) 


if (.not. diagnostic_mode) then 
col) mba_stetun_sopteverté_s (lLun,drive_as,drive_fc,1) 


*DT* REGISTER 


CALL LINCHK (LUN,1) 


WRITE (LUN, 200) DRIVE 
»*TRDT 7126, 28.8) 


if (.not. diagnostic_mode) then 

call mba_status_register!6_31 (lun,drive_fc,drive_dt,1) 

FIELD=LIBSEXTZV(0,3,DRIVE_DT) 

If (FIELD .€@. 0) THEN 

CALL LINCHK (LUN,1) 

yar ym 212) 
140," TRANSPORT NOT SELECTED") 

ELSE 

CALL OUTPUT (LUN,DRIVE_DT,MASS1_DT,0,0,3,'0") 

ENDIF 

CALL LINCHK (LUN,1) 

FIELD=LIBSEXTZV(5,1,DRIVE_DT) 


WRITECL 225) MASS_DTS(FIELD) 
ces »140,A<COMPRESSC (MASS_DTS(FIELD))>) 


CALL OUTPUT (LUN,DRIVE_DT,MASS2_DT,10,10,10,°0") 
CALL OUTPUT (LUN,DRIVE_DT,MASS3_DT,12,12,12,'°0") 
CALL OUTPUT (LUN, DRIVE_DT,MASS4_DT,14,14,15,°0") 
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oon 


325 


330 


335 


340 


Ooo 


350 


OOo 
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endif 
"CK REGISTER 


CALL LINCHK (LUN,1) 


WRITE(LUN,325) DRIVE 
FORMAT? Fy TmeKe “5s, 28.8) 


if (.not. diagnostic_mode) then 

call mba_status_register!6_31 (lun,drive_dt,drive_ck,1) 
FIELD=LIBSEXTZV(10,1,DRIVE_TC) 

IF (FIELD .€Q. 1600_8P1) THEN 

DO 340 1=0,8 

if (LibSextzv(i,l,drive_ck) .eq. 1) then 

CALL LINCHK (LUN,1) 

If (1 .LE. 7) THEN 


WRITECLUN, 330) | 

FORMAT(’ §,140,"DEAD TRACK CHANNEL ',11,".") 
ELSE 
WRITE 


(LUN, 335) 
—_—" ~140,"*DEAD TRACK PARITY CHANNEL") 
endif 
CONT INUE 
ENDIF 
endif 
*SN* REGISTER 
CALL LINCHK (LUN,1)? 


WRITE (LUN, 350) DRIVE 
»*TRSN' 7126, 28.8) 


if (.not. diagnostic_mode) then 
col abe_stetus,registerté_5} (Lun,drive_ck,drive_sn,1) 


*TC* REGISTER 
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CALL LINCHK (LUN,1) 
WRITEC 375) DRI T 
375 PORMAT TS OTe. Gate o156,78.8) 


if (.not. diagnostic_mode) then 

call mba_status_register!6_31 (lun, drive_sn,drive_tc,1) 
CALL LINCHK (LUN,1) 

FIELD=LIBSEXTZV(0,3,DRIVE_TC) 


WRITE(LUN,400) FIELD 
FORMAT(’ §,140,"TRANSPORT SELECT = ',11,".") 


CALL LINCHK (LUN,1) 
FIELD=LIBSEXTZV(4,4,DRIVE_TC) 
If (FIELD .LE. 2) THEN 


WRITE ( 425) MASS1_FORMAT(FIELD) 
ORMATC T40,A<COMPRESSC (MASS1_FORMAT(FIELD))>) 


ELSE IF (FIELD .GE. 12 .AND. FIELD .LE. 14) THEN 
WRITE LUN, 450) MASS2_ FORMAT (FIELD) 

FORMAT(* §, 140, "FORMAT 

1 A<COMPRESSC (mASS2_ Format tr 1ELD))>) 


425 


450 


CALL LINCHK (LUN, 1) 

FIELD=L 1BSEXTZV(8,3,DRIVE_TC) 

IF (FIELD .€0. 3 .OR. FIELD .€0. 4) THEN 
WRITECLUN, 500) MASS DENSITY <FIELD) 
FORMAT ( 


40,'D v 
1ACCONPRESSC (MASS DENSITY EF IELD) )>) 


Mew 


‘ 
; 
: 
: 
: 
; 
; 
‘ 
OC 
‘ 
: 
: 
OX 


500 


CALL OUTPUT (LUN, DRIVE_TC,MASS2_TC,12,12,15,'0") 
endif 


Se ee 


call Linchk (lun,1) 
write(ltun,530) 
530 Ccoaat? tua 


if (embSw_hd_entry .ne. 98) then 
call ucb$b_ertcnt (lun,emb$b_dv_ertcnt) 
call ucb$b_ertmax (lun,emb$b_dv_ertmax) 


SN NN NS 
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endif 

call orbSl_owner (Lun,emb$l_dv_ownuic) 
call ucb$i_char (lun,emb$l_dv_char) 
call ucbSw_sts (lun,emb$w_dv_sts) 

call ucb$l_opcnt (lun,emb$l_dv_opcnt) 
call ucbSwlerrcnt (lun, ,emb$w_dv_errcnt) 
if CembSw_hd_entry .ne. 98) then 

call Linchk (lun,1) 

write(lun,530) 

call masstape_qio (lun,emb$w_dv_ func) 
call irpSw_bcnt (lun,emb$Sw_dv_bcnt) 
call irpSw_boff (lun,emb$w_dv_boff) 
call irp$l_pid (lun,emb$l_dv_rapid) 
cali irp$q_iosb (lun,emb$\_dv_iosb1) 
endif 


RETURN 
END 
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PROGRAM SECTIONS 
Name Bytes Attributes | fl 
9 SCODE 2347 PIC CON REL LCL a) eX RD NOWRT LONG ‘ 
SPDATA 9 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
¢ SLOCAL 4 PIC CON REL LCL NOSHR NOEXE RD WRT LONG ! 
EMB 1 PIC OVR REL GBL SHR NOEXE RD WRT LONG | 8. 
Totsl Space Allocated 7440 | 9 
ENTRY POINTS ; 
Address Type Name 6. 
0-000000 90 MASSTAPE 8. 
0' 
VARIABLES 9 
Address Type Name Address Type Name o° 
DIAGNOSTIC_MODE ~9000007E 1*4 DRIVE_AS 0' 
DRIVE_CK 3h 1*4 DRIVE-CS1 0" 
DRIVE— 09 1*4 DRIVE-DT 0" 
DRIVE-ER $0 1*4 DRIVE-FC 0 
DRIVE-FUNC 000 $0 1*4 DRIVE-MR 
DRIVE-SN 0000 00092 I*4 DRIVE-TC 
EMBSB_DV_CLASS 00000010 L*l EMBSB"DV_ERTCNT 
EMBSB_DV~ERTMAX - O3E L*l EMB$B_DV-NAMLNG 
EMBSB_ DV" SLAVE - 91 Le] EMB$B_DV_TYPE 
EMBSL-DV~CHAR -00000012 I*4 EMBS$L"DV710SB1 
EMBSL—DV—10SB2 - 900 026 I*4 EMBSL-DV“MEDIA 
EMBSL—DV_NUMREG - 900 — I*4 EMBSL-DV“OPCNT 
EMBSL~DV~OWNUIC -00 —E I*4 EMBSL-DV"ROPID 
EMBSL-HD-SID ~0000003F CHAR EMB$T-DV-NAME 
EMBSW_DV—BCNT 00000022 I*2 EMBSW"DV—BOFF 
EMBSW_DV-ERRCNT - C Ie EMBSW~DV FUNC 
EMBSW_DV"STS - A I*2 EMBSW"DV"UNIT 
EMBSW~HD-~ENTRY -00 —E I*2 EMBSW"HD-ERRSEQ 
FIELD -000008B4 I*4 ji 
LUN -O00008AC I*4 SELECTED_MAPPING_REGISTER 
ARRAYS 
Name Bytes Dimensions 
ADAPTER_REGISTERS ff (7) 
5 1) 
4) 
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Address 


i= 
1700000 
1 1 


AND SUBROUTINES REFERENCED 


we 


Type 


1*4 


Address Label 


1-00000065 125 
he 1 


4 
-00000139 3 2 
-000001B8C 425° 


DHEAD1 
IRP$Q_10SB 
LIBSERTZV 


L OWNER REGISTERS 


MBA 
ORBSL_OWN 
UCBSB-ERT 
UCBSW_ ERRCNT 


~~ ee ee ee ee ee 


MENUS OV 


— 


oe o 08 «0 08 of «8 © 
on ee ee eee ee “7 «8 «* 
ew a ws tw WS ws ss SS ws 


Wo 


LLL LOLOL LLL Le ee me, mm, fm, 
oe * o 


~— ~—— 


Wo 


ig: 


335 
450° 


VAX-11 F 
DISKSVM 


Label 


Type Name 


FRCTOF 

IRP$W_BCNT 

LINCH 
MBA_MAPPING_REGISTER 
OUTPUT 


UTPU 
UCBSL_CHAR 
UCBSW"STS 


RAN V¥3.4-56 
TER: CER RF .SRCIMASSTAPE .FOR; ft 


1-00000087 150° 
1-000000ED 


1-000001E0 300" 


OO 


Rb 


Af 


11 


Ls 
"Ssep-19be Yesoose) © Disksvmsmastenst 4 woh on 


CIMASSTAPE .FOR 


| 
subroutine masstape_qio (lun,emb$w_dv_ func) 
include ‘src$:qiocommon.for /nolist’ 


byte lun 
integer*2 emb$w_dv_ func 
integers4 qiocode(0:1,0:63) 


if (qiocode(0,0) .eq. 0) then 
giocode(1,00) = Zloc(io$_nop) 
qiocode(1,01) = Zloc(io$_unload) 
qiocode(1,03) = Zloc(io$_recal) 
qiocode(1,04) = Zloc(io$_drvcir) 
qiocode(1,06) = Zloc(io$_erasetape) 
qiocode(1,08) = Zloc(io$_packack) 
qiocode(1,09) = Zloc(io$_spacerecord) 
qiocode(1,10) = Zloc(io$_writecheck) 
qiocode(1,11) = Zloc(io$_writepblk) 
qiocode(1,12) = Zloc(io$_readpblk) 
qiocode(1,25) = Zloc(io$_readpreset) 
qiocode(1,26) = Zloc(io$_setchar) 
qiocode(1,27) = Zloc(io$_sensechar) 
qiocode(1,28) = Zloc(io$_writemark) 
qiocode(1,32) = Zloc(io$_writelblk) 
qiocode(1,33) = Zloc(io$_readlblk) 
qiocode(1,34) = Zloc(io$_rewindoff) 


Oe a ee a a ne 
fun—o 


| 
a 
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1 
01 
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0 
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| 


COON 


™~ 


MASSTAPE_Q10 1p: 500-1984 90:8 33 ye 


-Sep-1 D rie ” 


SKSVMSMASTER: CERF SRCIMASSTAPE FOR: 
qiocode(1,35) = Zloc(io$_setmode) 
qiocode(1,36) = Zloc(io$_rewind) 
qiocode(1,37) = Zloc(io$_skipfile) 
qiocode(1,38) = Zloc(io$_skiprecord) 
qiocode(1,39) = Zloc(io$_sensemode> 
qiocode(1,40) = Zloc(io$_writeof) 
qiocode(1,48) = Zloc(io$_writevblk) 
qiocode(1,49) = Zloc(io$_readvblk) 
qiocode(1,50) = Zloc(io$_access) 
qiocode(1,51) = Zloc(io$_create) 
qiocode(1,52) = Zloc(io$_deaccess) 
qiocode(1,535) = Zloc(io$_delete) 
qiocode(1,54) = Zloc(io$_modify) 
qiocode(1,56) = Zloc(io$_acpcontrol) 
qiocode(1,57) = Zloc(io$_mount) 
do 10,i = 0,63 
qiocode(0,i) = 33 
if (qiocode(1,i) .eq. 0) then 
ategqdots «£2 = Zloc(qio_string) 

10 cont inue 
endif 


call irp$Sw_func (lun,emb$w_dv_ fun 
1 qiocode(0, LibSextzv(0, 6.8abSu_ rg func))) 


OC 
0 
OC 
O( 
OC 
OC 
OC 
OC 
; 
OC 
0 
OC 
OC 
0¢ 
OC 
OC 
OC 
O¢ 
0¢ 
OC 
OC 
OC 
O¢ 
OC 
O¢ 
; 


return 


2 


end | 
| 


MASSTAPE_Q10 


PROGRAM SECTIONS 


ENTRY POINTS 


Address Type 
0-00000000 
VARIABLES 
Address Type 
M-00000KG2, CHAR 
00000 5 oe 
JUUUU 
00000385 ‘s 
s0000eB CHAR 
mamiere fan 
DUOUUUU 
BpOSG08D FHAR 
sane mer 
0000 CHAR 
00000 CHAR 
B0000G Re CHAR 
90000188 CHAR 
D00002E6 CHAR 
BSSreT A 
00000 H 4 CHAR 
poaaes Eas 
stiititats CHAR 
10000307 CHAR 
10000037 CHAR 
see te 
20000164 CHAR 
poets? A 
500004 3A CHAR 


Tutal Space Allocated 


Bytes 
311 


sit 


2114 


Name 
MASSTAPE_Q10 


EMBSW DV FUNC 
10$_ABOR 


“CLEAN 
“DEACCESS 
“DIAGNOSE 
“DSE 
“FORMAT 
“LOADMCODE 


QP 
oO 
wv 
oO 
2~ 
— 
~ 
f=] 
- 


nue 


oooooooooo°0o0o 
PPAPPAPRARARAGA 


Aaoae 


sees 
» 
m 
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J 
vo 
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FOR P AAORARAA 


if 3eo-1986 90:96:55 


VAX=11 FORTRAN 


DISKSVMSMASTER: 
Attributes 
PIC CON REL LCL SHR EXE RD NOWRT LONG 
PIC CON REL LCL SHR EXE RD NOWRT LONG 
PIC CON REL LCL NOSHR NOEXE RD WRT LONG 
PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Address Type Name 
-00000200 I*4 | 
- 44 4D CHAR IO$_ACCESS 
-00000483 CHAR IOS_AVAILABLE 
- ie CHAR I0$_CREATE 
-00000393 CHAR IO$_DELETE 
- 4 4 CHAR IO$_ORVCLR 
-Q00000A9 CHAR IO$_ERASETAPE 
- Bon SAT CHAR IOS_INITIALIZE 
- 448 Al CHAR IO$_MODIFY 
-00000000 CHAR IO$_NOP 
- 94 gee CHAR 10$_PACKACK 
-000 F CHAR IOS_RDSTATS 
“R88 169 CHAR I1O$_READHEAD 
mn 13f CHAR I10$_READPBLK 
-00000195 CHAR IO$_READTRACKD 
D045A CHAR IO$_READWTHBUF 
0 4D CHAR IO$S_RECAL 
-Q00001AB CHAR IO$_REREADN 
“QOO000CA CHAR IOS_RETCENTER 
9 CHAR iOS -REUINOOFE 
4 CHAR IO$_SEEK 
H CHAR 10$_SENSEMODE 
-00000388 CHAR IO$_SETCLOCK 
DD CHAR I0$_SETMODE 
FA CHAR I0$_SKIPRECORD 
OF CHAR IO$_SPACERECORD 
CHAR 10$_STARTDATAP 
F CHAR I10$_STARTSPNDL 
D CHAR I0$_UNLOAD 
E CHAR 10$_WRITECHECK 
OSFF CHAR iOe_unit CSR 
“Q00002A2 CHAR [0$_WRITELBLK 
-00000514 CHAR poe-uait OF 
-000001C9 CHAR IOS WRITERET 


1254-36 
ERF .SRCJMASSTAPE .FOR; 
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MASSTAPE _Q10 


J, ip saree He 


ARRAYS 


. 108. wai TEveuk 
AR R alocst “STRING. 


Address Type Name Bytes Dimensions 
2-00000000 1*4 QIOCODE $12 (0:1, 0:63) 
LABELS | 
Address Label 
ee 10 


FUNCTIONS AND SUBROUTINES REFERENCED 
Type Name Type Name 
IRPSwW_FUNC 1*4 LIBSEXTZV 


COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:MASSTAPE/OBJ=0BJ$:MASSTAPE MSRC$:MASSTAPE 


/CHECK= (NOBOUNDS OVERFLOW NOUNDERF LOW) 
/DEBUGS NOSYMBOL § 1 BACK) 

/STANDARD= (NO NOSOURC H FORM) 

18 DARD=(NOSYRTAK NOSD INCLODE ,MAP) 

/F77 /NOG_FLOATING wie /OPTIMIZE /WARNINGS /NOD LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


COMPILATION STATISTICS 


pkey Tine: 1.65 seconds 
Page Faults: § 
Dynamic Memory: pages 


10.42 seconds | 
| 
| 
| 
| 
| 
| 
| 
| 
| 


pad and aed cd aed a ad eed 


1 
01 
0 
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01 
01 
01 


0150 AH-BT13A-SE DIGITAL EQUIPMENT CORPORATION 
| VAX/VMS V4.0 CONFIDENTIAL AND PROPRIETARY 


